(* PersonalData.pas *)

program PersonsData;

uses queue;

const
   ITEMS_NR = 10;
   
var
   i	    : integer;
   item	    : info;
   ItemsTab : array[1..ITEMS_NR] of info =
   (
    (imie:'Cathy';nazwisko:'Ball'),
    (imie:'Randy';nazwisko:'Crump'),
    (imie:'Eric';nazwisko:'Dinehart'),
    (imie:'Bill';nazwisko:'Hoffman'),
    (imie:'Ed';nazwisko:'Sears'),
    (imie:'Keith';nazwisko:'Toleman'),
    (imie:'Michael';nazwisko:'Fayette'),
    (imie:'Irving';nazwisko:'Gelb'),
    (imie:'Diane';nazwisko:'Hollibaugh'),
    (imie:'Betti';nazwisko:'Hufford')
    );

procedure print(item : info);
begin
   writeln(item.imie, ' ', item.nazwisko);
end; { print }

begin
   for i := 1 to ITEMS_NR do
      begin
	 put(ItemsTab[i]);
	 print(ItemsTab[i]);
      end;
   writeln();
   for i := 1 to ITEMS_NR+1 do
   begin
      item := get();
      print(item);
   end;
end.
